(time-stamp-hhmmss): New function.

diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index d86dd976572c5d34ed3a972900d75c9d55b1d520..8f07f714edadb462554446701d54173ad8e6e69b 100644 (file)
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -731,6 +731,10 @@ The first character of DD is space if the value is less than 10."
   "Return the current time as a string in \"HH:MM:SS\" form."
   (format-time-string "%T"))
 
+(defun time-stamp-hhmmss ()
+  "Return the current time as a string in \"HHMMSS\" form."
+  (format-time-string "%H%M%S"))
+
 (defun time-stamp-hhmm ()
   "Return the current time as a string in \"HHMM\" form."
   (format-time-string "%H%M"))